#!/usr/bin/awk -f

function parse_csv(r, _quote, _i, _n) {
  _i = 1;
  _quote = 0; # in a quoted string or not.

  for (_n = 1; _n <= NF; _n++) {
    if (_quote) {
      # quote string meets its end.
      if (substr($_n, length($_n), 1) == "\"") {
        _quote = 0;
        r[_i] = r[_i]","substr($_n, 1, length($_n) - 1);
        _i++;
      } else {
        # concat quote string with ",".
        r[_i] = r[_i]","$_n;
      }
    } else {
      # it is a quote string.
      if (substr($_n, 1, 1) == "\"") {
        _quote = 1;
        r[_i] = substr($_n, 2);
      } else {
        # copy content for normal string without quote.
        r[_i] = $_n;
        _i++;
      }
    }
}

BEGIN{
    FS="|"
}

{
    print $1"|"$2"|"$3"|"$4
}